home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Internet
/
Web
/
MetalWEB.lha
/
metalweb 2.0
/
MetalWEB_Install
< prev
next >
Wrap
Text File
|
1998-05-09
|
4KB
|
232 lines
; MetalWEB install-script
;
; $VER: MetalWEB Install 2.0 (07.05.98)
; by Pedro Luis Mieza
;
(set #MetalWEB-Version "2.0")
(if (< (/ (getversion) 65536) 37)
(abort "Sorry, MetalWEB needs OS v37 (2.04) or higher.")
)
(complete 0)
(welcome
"MetalWEB v" #MetalWEB-Version "⌐ by MULTITASKERS\n"
"WYSIWYG html Editor"
)
(set #Prg-Dir "")
(while
(or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
(set #Prg-Dir
(askdir
(prompt "Choose destination for MetalWEB\nA directory called MetalWEB will be created.")
(help @askdir-help)
(default @default-dest)
)
)
)
(set #Prg-Dir (tackon #Prg-Dir "MetalWEB"))
(makedir #Prg-Dir
)
(complete 30)
(copyfiles
(prompt "Copying MetalWEB executable...\n")
(help @copyfiles-help)
(source ("MetalWEB 2.0"))
(dest #Prg-Dir)
(infos)
(confirm)
)
(complete 50)
(set #images
(askoptions
(prompt "What image-buttons do you want to install?\n(You could see it, on \"docs/image_8colorsNew.ilbm\"\nor \"docs/image_8nolorsOld.ilbm\")")
(help @askchoices-help)
(choices "New images (NewIcon Style)" "Old images (MagicWb Style)")
(default 1)
)
)
(if
(in #images 0)
(copyfiles
(prompt "Copying MetalWEB images...\n")
(help @copyfiles-help)
(source ("images"))
(dest (tackon #Prg-Dir "images"))
(all)
(confirm)
)
)
(if
(in #images 1)
(copyfiles
(prompt "Copying MetalWEB old images...\n")
(help @copyfiles-help)
(source ("old_images"))
(dest (tackon #Prg-Dir "images"))
(all)
(confirm)
)
)
;(copyfiles
; (prompt "Copying MetalWEB rexx...\n")
; (help @copyfiles-help)
; (source ("rexx"))
; (dest (tackon #Prg-Dir "rexx"))
; (all)
; (confirm)
;)
(complete 60)
(set #catalog
(askoptions
(prompt "Choose language to install")
(help @askchoices-help)
(choices "English (built in)" "Catalα" "Espa±ol" "Franτais" "Deutsch" "Italiano")
(default 1)
)
)
(if (= @user-level 2)
(set #catalogdest
(askdir
(prompt "Choose directory for catalogfiles")
(help @askdir-help)
(default "Locale:Catalogs")
)
)
(set #catalogdest "Locale:Catalogs")
)
(if
(in #catalog 1)
(copyfiles
(source "catalogs/catalα")
(dest (tackon #catalogdest "catalα"))
(all)
)
)
(if
(in #catalog 2)
(copyfiles
(source "catalogs/espa±ol")
(dest (tackon #catalogdest "espa±ol"))
(all)
)
)
(if
(in #catalog 3)
(copyfiles
(source "catalogs/franτais")
(dest (tackon #catalogdest "franτais"))
(all)
)
)
(if
(in #catalog 4)
(copyfiles
(source "catalogs/deutsch")
(dest (tackon #catalogdest "deutsch"))
(all)
)
)
(if
(in #catalog 5)
(copyfiles
(source "catalogs/italiano")
(dest (tackon #catalogdest "italiano"))
(all)
)
)
(complete 70)
(copyfiles
(prompt "Copying TextField gadgets...\n")
(help @copyfiles-help)
(source ("gadgets"))
(dest "sys:classes/gadgets")
(all)
(confirm)
)
(complete 80)
(set #name
(askbool
(prompt "Do you want to install MetalWEB demo Pages")
(help @copyfiles-help)
(default 0)
)
)
(if
(in #name 0)
(copyfiles
(prompt "Copying MetalWEB Demo Pages...\n")
(help @copyfiles-help)
(source ("Demo_pages"))
(dest (tackon #Prg-Dir "Demo_pages"))
(infos)
(all)
(confirm)
)
)
(complete 90)
(set #name
(askbool
(prompt "Do you want to install MetalWEB HTML Documentation")
(help @copyfiles-help)
(default 0)
)
)
(if
(in #name 0)
(copyfiles
(prompt "Copying MetalWEB html docs...\n")
(help @copyfiles-help)
(source ("docs"))
(dest (tackon #Prg-Dir "docs"))
(infos)
(all)
(confirm)
)
)
(complete 100)
(exit "MetalWEB " #MetalWEB-Version " is now installed correctly. \n"
"This is a ShareWare!.\n"
"\n"
"To have a registered version please send 25$ or 35 DM to:"
"\n"
"Pedro Luis Mieza Suarez \n"
"Paseo Pedro III 45, 8, 3 \n"
"08240 MANRESA (Barcelona) \n"
"SPAIN \n"
"\n"
"Email: multitask@earthcorp.com \n"
"HTTP://www.earthcorp.com/multitask \n" (quiet))